home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Prog / M / MacPerl 4.13 appl.sit / MacPerl ƒ / macscripts / Rinaldis / Rinaldis
Encoding:
Text File  |  1993-12-08  |  926 b   |  21 lines  |  [TEXT/McPL]
  1. package Rinaldi;
  2. &MacPerl'LoadExternals("Align 2.7 (US)");
  3. &MacPerl'LoadExternals("ArchiveContent 1.1 (US)");
  4. &MacPerl'LoadExternals("AtalkZones 1.5 (US)");
  5. # Calendoid doesn't work (yet), because it opens an external window.
  6. &MacPerl'LoadExternals("CapsLock 1.0 (US)");
  7. &MacPerl'LoadExternals("ChooseColor 1.1 (US)");
  8. &MacPerl'LoadExternals("Chooser 1.7 (US)");
  9. &MacPerl'LoadExternals("ClipInfo 1.0 (US)");
  10. &MacPerl'LoadExternals("CopyFolder 2.2 (US)");
  11. package main;
  12.  
  13. print &Rinaldi'Align("line,'em\nup,neatly", "10,C"), "\n";
  14. print &Rinaldi'ArchiveContent("knuth:Development:MacPerl:Demo:CptTst.cpt"), "\n";
  15. print &Rinaldi'ATalkZones(), "\n";
  16. print &Rinaldi'CapsLock(), "\n";
  17. print &Rinaldi'ChooseColor("What's your favorite color baby?"), "\n";
  18. print &Rinaldi'CurrPrinter(), "\n";
  19. print &Rinaldi'ClipInfo(), "\n";
  20. # print &Rinaldi'CopyFolder("merlin:QuicKeys Script™", "merlin:QKS");
  21. print join("\n", keys _Rinaldi), "\n";